home *** CD-ROM | disk | FTP | other *** search
/ Delphi Informant Complete 1995 - 2000 / Delphi Informant Complete 1995 to 2000.iso / Delphi Informant Magazine Complete Works SOURCE CODE 1995.rar / 1995 / DEC / DI9512CJ / demo4u.dfm / demo4u.txt
Text File  |  1995-10-22  |  1KB  |  80 lines
  1. object Form1: TForm1
  2.   Left = 196
  3.   Top = 101
  4.   Width = 339
  5.   Height = 276
  6.   Caption = 'Demo4 - FindKey Example 2'
  7.   Font.Color = clWindowText
  8.   Font.Height = -13
  9.   Font.Name = 'System'
  10.   Font.Style = []
  11.   PixelsPerInch = 96
  12.   Position = poScreenCenter
  13.   OnCreate = FormCreate
  14.   TextHeight = 16
  15.   object Label1: TLabel
  16.     Left = 29
  17.     Top = 11
  18.     Width = 107
  19.     Height = 16
  20.     Caption = 'Company Name:'
  21.   end
  22.   object DBGrid1: TDBGrid
  23.     Left = 8
  24.     Top = 51
  25.     Width = 310
  26.     Height = 110
  27.     DataSource = DataSource1
  28.     TabOrder = 1
  29.     TitleFont.Color = clWindowText
  30.     TitleFont.Height = -13
  31.     TitleFont.Name = 'System'
  32.     TitleFont.Style = []
  33.   end
  34.   object Button1: TButton
  35.     Left = 30
  36.     Top = 201
  37.     Width = 113
  38.     Height = 33
  39.     Caption = 'FindKey'
  40.     TabOrder = 3
  41.     OnClick = Button1Click
  42.   end
  43.   object Edit1: TEdit
  44.     Left = 170
  45.     Top = 9
  46.     Width = 121
  47.     Height = 24
  48.     TabOrder = 0
  49.   end
  50.   object Button2: TButton
  51.     Left = 179
  52.     Top = 201
  53.     Width = 113
  54.     Height = 33
  55.     Caption = 'FindNearest'
  56.     TabOrder = 4
  57.     OnClick = Button2Click
  58.   end
  59.   object CheckBox1: TCheckBox
  60.     Left = 84
  61.     Top = 173
  62.     Width = 172
  63.     Height = 17
  64.     Caption = 'Case Sensitive Search'
  65.     TabOrder = 2
  66.     OnClick = CheckBox1Click
  67.   end
  68.   object DataSource1: TDataSource
  69.     DataSet = Table1
  70.     Left = 29
  71.     Top = 30
  72.   end
  73.   object Table1: TTable
  74.     IndexName = 'ByCompany'
  75.     TableName = 'newcust'
  76.     Left = 67
  77.     Top = 36
  78.   end
  79. end
  80.